home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / biz / dopus / matrix_theme.lha / DOpusTheme_Matrix / Matrix.theme < prev    next >
Text File  |  2000-03-03  |  3KB  |  78 lines
  1. /* D5THEME
  2.  
  3.    Matrix.theme
  4.  
  5.    Directory Opus Magellan II Theme File
  6. */
  7.  
  8. parse arg dopus_port apply_flags
  9. if dopus_port='' then
  10.     dopus_port='DOPUS.1'
  11. address value dopus_port
  12.  
  13. if apply_flags='' then
  14.     apply_flags='PFBS'
  15. else
  16.     apply_flags=upper(apply_flags)
  17.  
  18. options results
  19. options failat 21
  20.  
  21. /* Set background pictures */
  22. if index( apply_flags , "B") ~= 0 then do
  23.     dopus  set  background on
  24.     dopus  set  background "'DOpus5:Themes/Matrix/Screens/Matrix_800x600.jpg'" desktop stretch precision icon border off
  25.     dopus  set  background "'DOpus5:Themes/Matrix/Patterns/matrix_code.iff'" lister tile precision icon border off
  26.     dopus  set  background "'DOpus5:Themes/Matrix/Patterns/light_green_pattern.iff'" req tile precision icon border off
  27. end
  28.  
  29. /* Set sound events */
  30. if index( apply_flags , "S") ~= 0 then do
  31.     dopus  set  sound "'Bad disk inserted'" "'DOpus5:Themes/Matrix/Sounds/bad_disk_inserted.8svx'" 64
  32.     dopus  set  sound "'Close buttons'" "'DOpus5:Themes/Matrix/Sounds/close_buttons.8svx'" 64
  33.     dopus  set  sound "'Close group'" "'DOpus5:Themes/Matrix/Sounds/close_group.8svx'" 64
  34.     dopus  set  sound "'Close lister'" "'DOpus5:Themes/Matrix/Sounds/close_lister.8svx'" 64
  35.     dopus  set  sound "'Disk inserted'" "'DOpus5:Themes/Matrix/Sounds/disk_inserted.8svx'" 64
  36.     dopus  set  sound "'Disk removed'" "'DOpus5:Themes/Matrix/Sounds/disk_removed.8svx'" 64
  37.     dopus  set  sound "'FTP close connection'" "'DOpus5:Themes/Matrix/Sounds/ftp_close_connection.8svx'" 64
  38.     dopus  set  sound "'FTP connect fail'" "'DOpus5:Themes/Matrix/Sounds/ftp_connect_fail.8svx'" 64
  39.     dopus  set  sound "'FTP connect success'" "'DOpus5:Themes/Matrix/Sounds/ftp_connect_success.8svx'" 64
  40.     dopus  set  sound "'FTP copy fail'" "'DOpus5:Themes/Matrix/Sounds/ftp_copy_fail.8svx'" 64
  41.     dopus  set  sound "'FTP copy success'" "'DOpus5:Themes/Matrix/Sounds/ftp_copy_success.8svx'" 64
  42.     dopus  set  sound "'FTP error'" "'DOpus5:Themes/Matrix/Sounds/ftp_error.8svx'" 64
  43.     dopus  set  sound "'Hide'" "'DOpus5:Themes/Matrix/Sounds/hide.8svx'" 64
  44.     dopus  set  sound "'Open buttons'" "'DOpus5:Themes/Matrix/Sounds/open_buttons.8svx'" 64
  45.     dopus  set  sound "'Open group'" "'DOpus5:Themes/Matrix/Sounds/open_group.8svx'" 64
  46.     dopus  set  sound "'Open lister'" "'DOpus5:Themes/Matrix/Sounds/open_lister.8svx'" 64
  47.     dopus  set  sound "'Reveal'" "'DOpus5:Themes/Matrix/Sounds/reveal.8svx'" 64
  48.     dopus  set  sound "'Shutdown'" "'DOpus5:Themes/Matrix/Sounds/shutdown.8svx'" 64
  49.     dopus  set  sound "'Startup'" "'DOpus5:Themes/Matrix/Sounds/startup-8svx'" 64
  50. end
  51.  
  52. /* Set fonts */
  53. if index( apply_flags , "F") ~= 0 then do
  54.     dopus set font screen "'helvetica.font'" 11
  55.     dopus set font listers "'helvetica.font'" 11
  56.     dopus set font iconsd "'helvetica.font'" 15
  57.     dopus set font iconsw "'helvetica.font'" 11
  58. end
  59.  
  60. /* Set colour settings*/
  61. if index( apply_flags , "P") ~= 0 then do
  62.     dopus set pens icons 2 4 2 2 4 2
  63.     dopus set pens files 1 0
  64.     dopus set pens dirs 9 0
  65.     dopus set pens selfiles 2 1
  66.     dopus set pens seldirs 2 9
  67.     dopus set pens devices 8 0
  68.     dopus set pens assigns 12 0
  69.     dopus set pens source 1 10
  70.     dopus set pens dest 2 11
  71.     dopus set pens gauge 2 8
  72.     dopus set pens user 5
  73.     dopus set palette 0x959595 0x000000 0xFFFFFF 0x3B67A2 0x7B7B7B 0xAFAFAF 0xAA907C 0xFFA997 0x173A74 0x3B67A2 0x00A600 0xCF2F00 0x984700 0xEFE714 0x8C6534 0x00A600
  74. end
  75.  
  76. /* Refresh Opus */
  77. dopus refresh all
  78.